home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / curtime.gf < prev    next >
Text File  |  1994-02-16  |  148b  |  9 lines
  1. function curtime
  2.   say 'in currtime'
  3.   'q time'
  4.   t1=subwrd(result,3)
  5.   mo=substr(t1,6,3)
  6.   yr=substr(t1,9,4)
  7.   say 'out currtime'
  8. return (mo' 'yr)
  9.